00100		DIMENSION INP(72)
00200		L='T8'
00300	21141	FORMAT(I,72A1)
00400	2114	FORMAT(72A1)
00500	2214	FORMAT(A1,72A1)
00600		CALL IFILE(22,L)
00700		ETV=0
00800	2301	IF(ETV)GO TO 2307
00900		READ(22,21141,END=68),L,INP
00950		TYPE 2214,L,INP
01000		IF(INP(1).NE.'O')GO TO 2300
01100	2307	READ(22,2114,END=68)INP
01110		TYPE 2214,L,INP
01200		IF(ETV)GO TO 2300
01300		IF(INP(3).NE.ISEMI)GO TO 2307
01400		ETV=-1
01500		READ(22,2114)INP
01510		TYPE 2214,INP
01600		GO TO 2307
01800	2300	GO TO 2301
01900	68	END